home *** CD-ROM | disk | FTP | other *** search
/ s-gikan2.maizuru-ct.ac.jp / s-gikan2.maizuru-ct.ac.jp.zip / s-gikan2.maizuru-ct.ac.jp / pub / ncvc352a_install.exe / {app} / scripts / add_G41.1G40.1.pl < prev    next >
Perl Script  |  2004-04-02  |  384b  |  24 lines
  1. #! /usr/bin/perl
  2.  
  3. #  G02é╠ìsé╠Æ╝æOé╔G41.1üAÆ╝îπé╔G40.1é≡òtë┴é╖éΘâXâNâèâvâg  #
  4.  
  5. $pre_file= $ARGV[0];
  6. $out_file= $ARGV[1];
  7. open(IN,$pre_file);
  8. open(OUT,">$out_file");
  9.  
  10. while(<IN>){
  11.     if(!/^N?[0-9\s]*[\(\%]/){
  12.         if(/G0?2[^\d]/){
  13.             print OUT "G41.1\n";
  14.             print OUT;
  15.             print OUT "G40.1\n";
  16.         }
  17.         else{ print OUT; }
  18.     }
  19.     else{ print OUT; }
  20. }
  21.  
  22. close(OUT);
  23. close(IN);
  24.